ocr: LOC.PAS X procedure rorml.buttoniclick (Sender: TObject); var myBookmark : TBookmark; begin myBookmark := Tablel.Getbetbookmark; iget current posztzon) Tablel.D1sablecontrols; Tablel.First; while not Tablel.EOF do (search for a matchy begin if Tablel.FieldByName ('Name of et).asstring - Editl.Text then begin myBookmark := Tablel.GetBookmark; Tablel.G01010b0Okmar. K mybookmark) : Table1.FreereeBookmark myBookmark) : Tablel.Enablecontrols; Exit; end; Tablel.Next end; Tablel.GOTOToBookmark myBookmark) : Tablel.FreereeBookmark myBookmark) : Tablel.Enablecontrols; end; 56: 49 Modified Insert Loc/
